home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / AD.SPARKEE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  9KB  |  222 lines
  1. 1  DIM A(108)
  2. 2  HOME : SPEED= 100
  3. 3  FOR I = 1 TO 108: READ A(I): NEXT 
  4. 4  FOR I = 1 TO 1750: NEXT 
  5. 7  FOR I = 1 TO 3: GOSUB 999: FOR J = 1 TO 200: NEXT : NEXT 
  6. 8  FOR I = 1 TO 700: NEXT 
  7. 10  VTAB 2: HTAB 15: FOR I = 1 TO 8: READ A$: PRINT A$;: GOSUB 999: NEXT : READ A$: PRINT A$;
  8. 17  FOR I = 1 TO 1000: NEXT 
  9. 18  SPEED= 215
  10. 19  PRINT : PRINT : PRINT 
  11. 20  PRINT "         *****  *  ****   *****"
  12. 25  GOSUB 999
  13. 30  PRINT "         *      *  *   *  *"
  14. 35  GOSUB 999
  15. 40  PRINT "         *      *  *   *  *"
  16. 45  GOSUB 999
  17. 50  PRINT "         ****   *  ****   ****"
  18. 55  GOSUB 999
  19. 60  PRINT "         *      *  * *    *"
  20. 65  GOSUB 999
  21. 70  PRINT "         *      *  *  *   *"
  22. 75  GOSUB 999
  23. 80  PRINT "         *      *  *   *  *****"
  24. 85  GOSUB 999
  25. 90  PRINT : PRINT 
  26. 95  FOR I = 1 TO 400: NEXT 
  27. 100  PRINT "    ***   ****    ***     *    *   *"
  28. 105  GOSUB 999
  29. 110  PRINT "   *   *  *   *  *   *   * *   **  *"
  30. 115  GOSUB 999
  31. 120  PRINT "   *   *  *   *  *      *   *  * * *"
  32. 125  GOSUB 999
  33. 130  PRINT "   *   *  ****   * ***  *   *  * * *"
  34. 135  GOSUB 999
  35. 140  PRINT "   *   *  * *    *   *  *****  * * *"
  36. 145  GOSUB 999
  37. 150  PRINT "   *   *  *  *   *   *  *   *  *  **"
  38. 155  GOSUB 999
  39. 160  PRINT "    ***   *   *   ***   *   *  *   *";
  40. 161  GOSUB 999
  41. 162  SPEED= 100
  42. 163  FOR I = 1 TO 500: NEXT 
  43. 164  PRINT " T";: GOSUB 999: PRINT "M": GOSUB 999
  44. 167  PRINT : PRINT 
  45. 168  FOR I = 1 TO 500: NEXT 
  46. 170  VTAB 23: HTAB 14: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : INVERSE : FOR I = 1 TO 4: READ A$: PRINT A$;: GOSUB 999: NEXT : NORMAL : FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT 
  47. 185  FOR I = 1 TO 2500: NEXT 
  48. 200  FOR I = 1 TO 21: PRINT : GOSUB 999: NEXT 
  49. 202  FOR I = 1 TO 1750: NEXT 
  50. 205  SPEED= 165
  51. 210  VTAB 8
  52. 220  PRINT " ***  ****    *   ****  *   * **** ****"
  53. 225  GOSUB 999
  54. 230  PRINT "*   * *   *  * *  *   * *  *  *    *"
  55. 235  GOSUB 999
  56. 240  PRINT "*     *   * *   * *   * * *   *    *"
  57. 245  GOSUB 999
  58. 250  PRINT " ***  ****  *   * ****  **    ***  ***"
  59. 255  GOSUB 999
  60. 260  PRINT "    * *     ***** * *   * *   *    *"
  61. 265  GOSUB 999
  62. 270  PRINT "*   * *     *   * *  *  *  *  *    *"
  63. 275  GOSUB 999
  64. 280  PRINT " ***  *     *   * *   * *   * **** ****"
  65. 285  GOSUB 999
  66. 286  GOSUB 3000
  67. 287  FOR I = 1 TO 1500: NEXT 
  68. 289  SPEED= 100
  69. 290  VTAB 19: HTAB 11: FOR I = 1 TO 16: READ A$: PRINT A$;: GOSUB 999: NEXT 
  70. 300  FOR I = 1 TO 5: PRINT : NEXT : FOR I = 1 TO 3500: NEXT : FOR I = 1 TO 19: PRINT : GOSUB 999: NEXT : HOME 
  71. 305  FOR I = 1 TO 1500: NEXT 
  72. 310  PRINT : PRINT 
  73. 320  HTAB 5: FOR I = 1 TO 7: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT ",": GOSUB 999: PRINT 
  74. 325  PRINT 
  75. 328  FOR I = 1 TO 350: NEXT 
  76. 330  INVERSE : HTAB 16: FOR I = 1 TO 4: READ A$: PRINT A$;: GOSUB 999: NEXT : NORMAL : PRINT " ";: INVERSE : FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT : NORMAL : PRINT 
  77. 333  FOR I = 1 TO 650: NEXT 
  78. 335  PRINT : PRINT 
  79. 340  HTAB 5: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  80. 345  PRINT 
  81. 350  HTAB 3: FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  82. 355  PRINT 
  83. 360  HTAB 1: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  84. 365  PRINT : PRINT 
  85. 367  FOR I = 1 TO 1500: NEXT 
  86. 370  HTAB 4: FOR I = 1 TO 4: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  87. 375  PRINT 
  88. 380  HTAB 2: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  89. 385  PRINT 
  90. 390  HTAB 7: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  91. 395  PRINT 
  92. 400  HTAB 15: FOR I = 1 TO 1: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  93. 410  FOR I = 1 TO 8500: NEXT 
  94. 420  FOR I = 1 TO 24: PRINT : GOSUB 999: NEXT : HOME 
  95. 422  FOR I = 1 TO 1000: NEXT 
  96. 425  PRINT : PRINT : PRINT 
  97. 430  HTAB 11: FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  98. 434  FOR I = 1 TO 350: NEXT : INVERSE 
  99. 435  PRINT : PRINT 
  100. 440  HTAB 17: FOR I = 1 TO 7: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  101. 442  NORMAL 
  102. 444  FOR I = 1 TO 650
  103. 445  PRINT : PRINT 
  104. 450  HTAB 5: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  105. 455  PRINT 
  106. 460  HTAB 3: FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT ", ";
  107. 470  INVERSE : FOR I = 1 TO 10: READ A$: PRINT A$;: GOSUB 999: NEXT : NORMAL : PRINT " ";
  108. 480  FOR I = 1 TO 2: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  109. 485  PRINT 
  110. 490  HTAB 5: FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  111. 495  PRINT 
  112. 500  HTAB 5: FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  113. 505  PRINT 
  114. 510  HTAB 12: FOR I = 1 TO 2: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  115. 515  PRINT 
  116. 520  HTAB 8: FOR I = 1 TO 1: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT ", ";: FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  117. 555  FOR I = 1 TO 3500: NEXT 
  118. 560  FOR I = 1 TO 3: PRINT : NEXT 
  119. 562  FOR I = 1 TO 21: PRINT : GOSUB 999: NEXT : HOME 
  120. 580  FOR I = 1 TO 1000: NEXT 
  121. 600  VTAB 2: HTAB 14
  122. 610  INVERSE 
  123. 620  FOR I = 1 TO 7: READ A$: PRINT A$;: GOSUB 999: NEXT 
  124. 630  HTAB 22: FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT 
  125. 635  PRINT 
  126. 640  NORMAL 
  127. 650  FOR I = 1 TO 650: NEXT 
  128. 660  PRINT : PRINT 
  129. 670  HTAB 13: FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  130. 675  PRINT 
  131. 680  HTAB 3: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  132. 685  PRINT 
  133. 690  HTAB 20: FOR I = 1 TO 1: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  134. 695  PRINT : PRINT 
  135. 700  HTAB 12: FOR I = 1 TO 2: READ A$: PRINT A$;: GOSUB 999: NEXT 
  136. 705  PRINT 
  137. 710  HTAB 12: FOR I = 1 TO 4: READ A$: PRINT A$;: GOSUB 999: NEXT 
  138. 715  PRINT 
  139. 720  HTAB 12: FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  140. 725  PRINT : PRINT 
  141. 727  FOR I = 1 TO 1500: NEXT 
  142. 730  HTAB 5: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  143. 735  PRINT 
  144. 740  HTAB 7: FOR I = 1 TO 6: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  145. 742  FOR I = 1 TO 2500: NEXT 
  146. 745  PRINT : PRINT 
  147. 747  INVERSE 
  148. 750  HTAB 14: FOR I = 1 TO 3: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  149. 760  HTAB 15: FOR I = 1 TO 2: READ A$: PRINT A$;: GOSUB 999: NEXT : PRINT 
  150. 761 A =  PEEK( -16368)
  151. 763  NORMAL 
  152. 770  IF  PEEK( -16384) <128  THEN 770
  153. 780 A =  PEEK( -16368)
  154. 790  FOR I = 1 TO 24: PRINT : GOSUB 999: NEXT 
  155. 795  FOR I = 1 TO 2000: NEXT 
  156. 800  INVERSE 
  157. 810  VTAB 5: HTAB 16: FOR I = 1 TO 9: READ A$: PRINT A$;: GOSUB 999: NEXT 
  158. 815  NORMAL 
  159. 817  FOR I = 1 TO 1000: NEXT 
  160. 820  VTAB 11: HTAB 8: FOR I = 1 TO 4: READ A$: PRINT A$;: GOSUB 999: NEXT 
  161. 825  FOR I = 1 TO 500: NEXT 
  162. 830  VTAB 13: HTAB 8: FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT 
  163. 835  FOR I = 1 TO 500: NEXT 
  164. 840  VTAB 15: HTAB 8: FOR I = 1 TO 5: READ A$: PRINT A$;: GOSUB 999: NEXT 
  165. 845  PRINT 
  166. 850  IF  PEEK( -16384) <128  THEN 850
  167. 860  IF  PEEK( -16384) <176  THEN A =  PEEK( -16368): GOTO 850
  168. 870  IF  PEEK( -16384) >179  THEN A =  PEEK( -16368): GOTO 850
  169. 880  IF  PEEK( -16384) = 177  THEN A =  PEEK( -16368): RESTORE : GOTO 2
  170. 890  IF  PEEK( -16384) = 178  THEN A =  PEEK( -16368): RESTORE : FOR I = 1 TO 9: PRINT : NEXT : FOR I = 1 TO 15: PRINT : GOSUB 999: NEXT : HOME : FOR I = 1 TO 243: READ A$: NEXT : GOTO 600
  171. 900 D$ =  CHR$(4): PRINT D$"RUN AD.MENU"
  172. 998  FOR I = 1 TO 100000: NEXT 
  173. 999 A =  PEEK(49200):A =  PEEK(49200): RETURN 
  174. 1006  DATA 1064,1068,1070,1074,1077,1079,1082,1086,1088,1091,1094,1099,1192,1198,1202,1204,1208,1210,1214,1216,1218,1222,1227,1321,1322,1323,1326,1327,1328,1329,1332,1336
  175. 1007  DATA 1338,1339,1340,1341,1344,1345,1350,1351,1352,1355,1356,1357,1452,1454,1460,1461,1462,1463,1464,1466,1468,1472,1474,1478,1483,1576,1580,1582,1588,1592,1594,1597
  176. 1008  DATA 1600,1603,1606,1611,1705,1706,1707,1710,1716,1720,1722,1726,1728,1732,1734,1735,1736,1737,1739,1740,1741,1742,1921,1922,1923,1926,1927,1928,1929,1934,1938,1939
  177. 1009  DATA 1940,1941,1944,1948,1950,1951,1952,1953,1955,1956,1957,1958
  178. 1010  DATA  I,F ,Y,O,U ,L,I,K,E  
  179. 1170  DATA  Y,O,U,',L,L ,L,O,V,E,.,.,.
  180. 1290  DATA  S,O,N ,O,F ,',F,I,R,E ,O,R,G,A,N,'
  181. 1320  DATA FOR ,THOSE ,WHO ,MAY ,NOT ,BE ,AWARE
  182. 1330  DATA F,I,R,E,O,R,G,A,N
  183. 1340  DATA WAS ,THE ,FIRST ,'ALBUM' ,OF ,DYNAMIC
  184. 1350  DATA  (EVER-CHANGING) ,VISUAL ,COMPOSITIONS
  185. 1360  DATA TO ,BE ,PRODUCED ,BY ,VAGABONDO ,ENTERPRISES.
  186. 1370  DATA HUNDREDS ,OF ,'SOFTDISK' ,SUBSCRIBERS
  187. 1380  DATA ENJOYED ,THE ,APPEARANCE ,OF ,'FIRE ,ORGAN'
  188. 1390  DATA IN ,THE ,NOVEMBER ,'81 ,ISSUE ,OF
  189. 1400  DATA 'SOFTDISK.'
  190. 1430  DATA NOW ,YOU ,CAN ,SEND ,FOR
  191. 1440  DATA S,P,A,R,K,E,E
  192. 1450  DATA WITH ,OVER ,TWO ,DOZEN ,NEW ,DYNAMIC
  193. 1460  DATA WORKS ,OF ,ART
  194. 1470  DATA G,U,A,R,A,N,T,E,E,D
  195. 1480  DATA TO ,DELIGHT
  196. 1490  DATA YOU ,WITH ,THEIR ,BRILLIANT ,COLORS
  197. 1500  DATA AND ,GRACEFUL ,FLOWING ,PATTERNS ,OF
  198. 1510  DATA CONTINUALLY ,MOVING
  199. 1520  DATA SHAPES,LINES ,AND ,CURVES.
  200. 1620  DATA S,P,E,C,I,A,L
  201. 1630  DATA O,F,F,E,R
  202. 1670  DATA SEND ,JUST ,$19.95
  203. 1680  DATA  (PA. ,RESIDENTS ,ADD ,            $1.20 ,SALES ,TAX)
  204. 1690  DATA TO
  205. 1700  DATA KEN ,SHERWOOD
  206. 1710  DATA  117-Y  ,N. ,25TH ,ST.
  207. 1720  DATA READING ,PA   ,19606
  208. 1730  DATA IN ,RETURN ,'SPARKEE' ,WILL ,BE ,SENT
  209. 1740  DATA  TO ,YOU ,BY ,FIRST ,CLASS ,MAIL.
  210. 1750  DATA PRESS ,ANY ,KEY
  211. 1760  DATA TO ,CONTINUE
  212. 1810  DATA T,H,A,N,K ,Y,O,U,!
  213. 1820  DATA 1 ,-- ,REVIEW ,AD
  214. 1830  DATA 2 ,-- ,REVIEW ,ORDERING ,INFO
  215. 1840  DATA 3 ,-- ,BACK ,TO ,SOFTDISK
  216. 3000  FOR I = 1 TO 200
  217. 3010 N =  INT(1 +108 * RND(1))
  218. 3020  IF  PEEK(A(N)) = 170  THEN  POKE A(N),171: GOTO 3040
  219. 3030  POKE A(N),170:
  220. 3040  NEXT 
  221. 3050  FOR I = 1 TO 108: POKE A(I),170: NEXT 
  222. 3060  RETURN